home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / www / DNS.lha / DNS < prev    next >
Encoding:
AmigaDOS Script File  |  1998-10-14  |  694 b   |  39 lines
  1. .key domain
  2.  
  3. ; $VER: DNS 1.1 (13.10.98) Domain Name Search - Copyright ©19981013 Amiguy@TheWorld.net
  4.  
  5. failat 15
  6.  
  7. Echo DNS 1.1 ©1998 Amiguy@TheWorld.net
  8.  
  9. if "<domain>" eq ""
  10.         echo usage: DNS any_domain_name.com
  11.         quit
  12. endif
  13.  
  14. Echo "Sending query on <domain> to InterNIC..."
  15.  
  16. httpj >NIL: http://rs.internic.net/cgi-bin/whois?<domain> to T:DNS.temp
  17.  
  18. if warn
  19.         echo "! Not connected !"
  20.         quit
  21. endif
  22.  
  23. Echo Analyzing response...
  24.  
  25. search T:DNS.temp "No match for" >NIL:
  26.  
  27. if not warn
  28.         echo "<domain> is available! :)"
  29.         else
  30.         echo "<domain> is taken! :("
  31.     wait 2
  32.     getmouseinput
  33.     if $mouseinput GT "0"
  34.         more T:DNS.temp
  35.     endif
  36. endif
  37.  
  38. delete T:DNS.temp >NIL:
  39.